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ENGINEERING 


A 


(Applications Programs) APRIL, 1970 



AL/COM Chemical Engineering programs cover a number of the more complex and tedious 
calculations demanded of the chemical engineer, simplifying his routine computation tasks, and 
permitting him to devote a greater fraction of his time to original and productive design work. 

All programs are conversational, eliminating input/output problems and program preparation. It is 
unnecessary for the user to possess any knowledge of the internal workings of the programs or prior 
computer programming experience to use the library effectively. Where large amounts of data are 
required, they may be input either directly on the teletype terminal, or from a previously created 
data file. All references in the input statements, and in the solutions output, are given in terminology 
familiar to the chemical engineer. 

In addition to the programs presented here, others covering design of equipment for such processes 
as evaporation and humidification are under development. 

MC CABE (McCabe-Thiele Calculations) 

Simulates a binary distillation. The equilibrium curve, stream percentages of the least volatile 
component, feed quality and reflux ratio are entered. The number of theoretical stages and the 
composition at each stage is output. 

HEATUP (Nonisothermal Batch Heat Transfer) 

Inputs are the physical property characteristics of the fluids, and system parameters. Output is a 
time-temperature history of the batch heat transfer. Heatup and cooldown may be done. Many 
different types of transfer, e.g., coils and jacket, are handled. 

TRAYS (Ballast Tray Design) 

A distillation column ballast tray is designed using the methods outlined in the F. W. Glitsch 
Handbook # 4900 (Revised). Output is a complete design, including tower diameter and number 
of flow passes. Tray efficiency may be calculated if desired, using the AlChE Bubble Cap Method. 

STRIPS (Stripping Column Calculations) 

The compositions of the exit streams of a stripping column are calculated using the Edmister 
method. The temperature of the streams, plus the L/V ratios throughout the column are also output. 
The program is equipped to handle condensing steam. 

DISTIL (Multicomponent Distillation) 

The compositions of the exit streams of a simple distillation column are calculated using the Thiele- 
Geddes method for a solution, the theta method for mass balance correction, and the Newton- 
Raphson method for theta-convergance. The temperature and mass profiles throughout the column 
be output if desired. 

BUBDEW (Bubble and Dew Point Calculations) 

The bubble point and dew point of a multicomponent mix are calculated using classic methods 
described in “Design of Equilibrium Stage Processes", by Buford D. Smith (McGraw-Hill). If water 
is present in the mix, a secondary dew point is calculated. 
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ISTHRM (Isothermal Flash) 

The proportion of vapor and liquid of a multicomponent mix at a given temperature is output. A 
condensing curve may be output, if desired. 

ADFLSH (Adiabatic Flash) 

Output is the temperature of a multicomponent mix needed to flash off a desired amount of material. 
The compositions of the vapor and liquid are also output. A condensing curve may be output, if 
desired. 

LIQLIQ (Liquid-liquid Extraction Calculations) 

Program uses concentration data to derive activity coefficients using three-suffix Margules 
equations. Classical methods described in "Design of Equilibrium Stage Processes" by Buford D. 
Smith (McGraw-Hill) are used to calculate the composition of the exit streams. 



ABSORB (Absorbing Column Calculations) 

The compositions of the exit streams of an absorbing column are calculated using the Edmister 
method. The temperatures of the streams and the L/V ratios throughout the column are also output. 

TWOPHS (Two-phase and Flashing Flow Pressure Drop Calculations) 

The pressure drop through a pipeline carrying a flashing fluid is calculated. A two-phase, non¬ 
flashing mixture may also be considered. The program uses the Dukler correlation to determine the 
pressure drop of the mix after calculating the liquid and vapor pressure drops. The pipe is divided 
into foot-long segments, and a separate calculation is done on each foot, thus approaching an exact 
solution. Adiabatic or non-adiabatic pipelines may be considered. 

VISCOS (Viscosity of a Multicomponent Mix) 

The method of Wilke is used to calculate the viscosity of a multicomponent mix, given the individual 
viscosities and amounts. The program accepts engineering input, e. g., degrees F, pounds of a 
component, and viscosity in centipoises, and outputs the viscosity in centipoises. 

THCOND (Thermal Conductivity of a Multicomponent Mix) 

The method of Lindsay and Bromley is used to calculate the thermal conductivity of a multicomponent 
mix. The program accepts engineering units. 

Dl FFUS (Binary Diffusion Constants of a Multicomponent Mix) 

The method of Hirschfelder, Bird and Spotz is used to calculate the individual binary diffusion 
constants in a multicomponent mix. 


Example: MCCABE-THIELE calculations 


X Y STAGE 


Cl) 

MOL FCT 

X IN 

DISTLT 

= 

.98 

( 2 ) 

MOL FCT 

X IN 

FEED 

s 

.17 

C3) 

MOL FCT 

X IN 

BOTMS 

= 

.005 

C 4) 

QUALITY 

OF FEED 

= 

.8 

C 5) 

REFLUX 1 

RATIO 


= 

2.77 


DO DATA PTS COME FROM FILE? NO 


ENRICHING SECTION 


0.971 0.980 1 

0.960 0.973 2 

0.949 0.966 3 

0.938 0.958 4 

0.925 0.949 5 

0.911 0.939 6 

0.883 0.929 7 

0.752 0.908 8 

0.236 0.813 9 


INPUT THE EQUILIBRIUM PTS 
Y X 

POINT 1 » 0.000 0.000 

POINT 2 = *6*.042 
POINT 3 = .828#.250 
POINT 4 = .932#.900 
POINT 5 = .828#.250 

PT LESS THAN LAST. TRY AGAIN 
POINT 5 = .932#.956 


STRIPPING SECTION 

0.030 0.433 10 

0.020 0.282 1 

0.003 0.048 2 

TOTAL # ENRICHING STAGES = 10 

TOTAL # STRIPPING STAGES a 2 

TOTAL NUMBER OF STAGES = 12 


PT LESS THAN LAST. TRY AGAIN 
POINT 5 = 1#1 


TABULATION OF INPUT POINTS 
X Y 

0.000 0.000 
0.042 0.600 
0.250 0.828 
0.900 0.932 


EQUATIONS OF THE TWO LINES 


Y = 0.735X + 0.260 <ENRICH) 

Y « 2.897X - 0.009 CSTRP) 

PT OF INTSCTN OF THE TWO LINES 

<0.352#0.125) 

WANT TO RERUN? NO 

WANT TO SAVE DATA PTS? YES 



FILE NAME = MCABE 
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Calculates the time required for a car 
to accelerate from zero to 60 mph. 

AMAZNG*** Constructs a different maze every time it 
is run—Guarantees only one path through. 

CALEND*** Determines the day of the week on which 
a given date falls. 


-ENGINEERING PROGRAMS 



The programs described here are based in large part upon the respected Dartmouth BASIC 
Library created by the originators of the BASIC language. They find broad application as utility 
routines and subroutines; as demonstration programs; as "starter” programs for teaching, and as 
a point of departure in new programming. New routines are added periodically. Your 
suggestions, or contributions of new programs of general interest will be welcomed. 

Programs are accessed as follows: 

.BASIC 

NEW OR OLD--OLD 
OLD FILE NAME--ACCELR*** 

READY 

Three asterisks (***) following the program name ACCELR, instructs the System to make a ..brary 
search for the program and make it available. No period (.) should be used between program 
name and asterisks. 

The operating instructions are accessed from monitor mode (before BASIC) as follows: 

TYPE C0-1-11003 ACCELR,OPR 


DEMONSTRATION PROGRAMS 
ACCELR*** 



JFK*** Prints a picture of John F. Kennedy. 

SNOOPY*** Prints a picture of Snoopy. 

XMAS*** "TheTwelveDaysof Christmas”sing-along. 


BEMDES*** 

Recommends the correct steel beam to 
use for a number of common applications. 

HCROSS*** 

Solves the flow of water through a 
network of pipes by the ‘‘Hardy Cross” 

CONVRT*** 

Converts measurements of temperature, 


method. 


length, area, and density (of pattern) 
from one scale to another. 

LPFILT*** 

Designs low pass filters using constant 
K prototype T section and M derived 

DEBYE*** 

Computes the Debye or the Einstein 
function. 


(M = 0-.6) termination L sections. 


PAD*** 

Takes the arithmetic out of attenuator 

DISTIL*** 

Simulates a binary batch distillation in a 
packed tower. Constants supplied by user. 


pad design. Six types of pads are 
designed. 


(continued on pg. 2) 


* BASIC was developed by Dartmouth College, Hanover, New Hampshire, and is copyrighted by the Trustees 
ol Dartmouth College. These programs are in part an adaptation ot Dartmouth programs. 
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FINANCIAL PROGRAMS 


ACCRUL*** 

Calculates accrual of interest on 
installment loans. 

anuiti*** 

Determines how long a particular amount 
of money will last when invested at a 
particular rate of interest, with periodic 
withdrawals. 

ANUIT2*** 

Performs calculations for payment and 
withdrawal annuities. 

BNKPRJ*** 

Projects eight balance sheet and income 
statement entries up to ten years into 
the future. 

BNKSIM*** 

Simulates one year’s activities of a small 
bank using probabilities for withdrawals 
and deposits. 

BONDPR*** 

Computes the price and accrued interest 
for a bond. 

BONDYD*** 

Computes the yield to maturity 
of a bond, before and after tax. 

CAPBUD*** 

Capital budgeting — compares up to 4 
projects, and gives internal rate of return. 

DEMAND*** 

Calculates interest due for each demand 
loan outstanding at the end of a 3-mo. 
quarter. 

DEMSEC*** 

Prints a schedule of demand loans 
broken down by interest rate. 

DEPREC*** 

Computes and prints depreciation 
by monthly summaries using four 
different methods. 

EDKSJH1*** 

Computes one or more multiple 
regressions on National Income Account 
data. 

FRECAS*** 

Forecasts balance sheets, income 
statements, and cash flow statements 
for 5 years. 

FRECS4*** 

Computes Henri Theil’s measures of 
quality of forecast. 

INCTAX*** 

Determines personal income tax 
according to Form 1040 using the 

1968 rates. 

INOUT*** 

Does input/output analysis for a 
hypothetical economy. 

INSTAL*** 

Calculates the monthly payments 
schedule for an installment loan— 
detailed ledger format. 

-fSAilE DDO^DAIUIC 

BANDIT*** 

Simulates a slot machine (the One- 
Armed Bandit). 

BASBAL*** 

Simulates a baseball game. 

BATNUM*** 

Battle of numbers game. 

BINGO*** 

Game of bingo. 

BLKJAK*** 

Plays a game of blackjack-—computer 
is dealer. 

BRIDGE*** 

Bridge bidding practice. 

BSKBAL*** 

Game of basketball. 

CRAPS*** 

Simulates a crap game. 


INSTL1*** 

Calculates the monthly payments 
schedule for an installment loan—loan 
statement format. 

LESSEE*** 

Compares lease and purchase of 
equipment, using the Bower-Williamson 
method of analysis. 

LESSIM*** 

Calculates the lessor’s cash flows and 
rate of return on a lease with period-end 
payments. 

LESSOR*** 

Same as LESSIM but with sensitivity 
analysis. 

MAKBUY*** 

Calculates the present value of the cost 
saving of making a product as opposed 
to buying it. 

MORTCA*** 

Computes Canadian mortgage table. 

MORTGE*** 

Computes standard mortgage table. 

NICK63*** 

Stock analyzing program—computes 
the growth rate required to justify the 
price of a stock. 

POPULA*** 

Projects population growth for any 
number of years using the compound 
interest formula. 

RCONCL*** 

Reconciles a customer’s ending bank 
statement balance with those checks and 
deposits that are outstanding. 

RESERV*** 

Calculates Federal Reserve position. 

RETURN*** 

Computes a matrix of returns for an 
investment in a stock. 

SALES*** 

Prints out information to assist a 
department store. 

SAVING*** 

Calculates the amount of money that 
would accumulate after N years at an 
annua! interest rate R compounded 

T times per year. 

SBA*** 

Computes and prints out a monthly 
schedule for a SBA loan. 

SWITCH*** 

Computes the net effect of switching 
from a bond currently held to another 
bond under consideration. 

TAXRA*** 

Calculates the discounted rate of return, 
on an after-tax basis, of an investment. 

TRUSNT*** 

Calculates the true annual interest rate 
charged on an installment loan. 


DIGITS*** 

Guesses a sequence of numbers. 

FOOTBL*** 

Simulates a football game. 

GOLF*** 

Plays golf. 

HNGMAN*** 

Plays hangman. 

HOSSR*** 

Simulates a horse race. 

LEARN*** 

Learns to play the game of “21 

NIM*** 

Ancient game of nim. 

NIM2*** 

Game of nim (more options than 


NIM***). 

(continued on pg. 3 ) 
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GAME PROGRAMS Continued 



POKER*** 

Plays 5-card draw poker. 

ROULET*** 

Plays roulette. 

QUBIC*** 

Plays tic-tac-ioe in a 4x4x4 cube. 

TICTAC*** 

Plays tic-tac-toe. 

QUEEN*** 

Plays the queen game (game based 
on queen’s move in chess). 

WAR*** 

Card game of war. 

U^TUCIMTirAi DDAADAMC 







4SQRS*** 

Writes integers as a sum of the squares 

DERIV*** 

Finds the derivative of a function at 


of four integers. 


a point. 

ARITH*** 

Performs arithmetic with numbers of up 

DESYS*** 

Solves the initial value problem: 


to 300 digits; it adds, multiplies, or 


X' - F(T, X, Y) 


divides. 


Y' = G(T, X, Y) 

ASGNMT*** 

Solves the classic assignment problem 
and computes a cost for the assignment. 


X(T 0 ) - Xo 

Y(T 0 ) = Y 0 

BESSEL*** 

Defines a function for calculating Bessel 
functions of the first kind. 

DGMINV*** 

Finds the value of Z to make D(Z) = 

Do, where D(Z) is the digamma function 
of real Z, Z > 0. 

CDETER*** 

Evaluates the determinant of a complex 

DIFEQ*** 

Solves a set of N first order differential 

CHINES*** 

matrix, using the Grout method. 

equations using the fourth-order Runga- 

Chinese remainder theorem—solves 


Kutta method. 


simultaneous congruences of the form: 

A(I)*X = B(l) MOD M(1), FOR 1 = 1 

DIGAMA*** 

Finds digamma of real Z, Z > 0. 


TO N, N< 100 

DIVIDE*** 

Synthetic division—finds FNN(X)/ 

CIRCLE*** 

Divides a circle into a given number of 


FND(X). 


equal parts: gives coordinates & angles. 

ECHAIN*** 

Computes basic quantities for an ergodic 

CMDET*** 

Similar to CDETER***, except that a 


Markov chain. 


different algorithm is used. 

EUCLID*** 

Finds the greatest common divisor of 

COMPLX*** 

Gives the values of sin, cos, tan, sinh, 


two integers. 


cosh, and tanh of complex variables. 

FACTOR*** 

Finds the prime factorization of a 

CONCLD*** 

Determines the strongest possible 


number. 


conclusions involving the fewest possible 
variables from given sentences of 

FALSE*** 

Useful in obtaining an implicit solution. 


propositional logic. 

FIB*** 

Locates and evaluates the maximum of a 

CPM*** 

Critical path analysis. 


unimodal function of one variable. 

CRCPM*** 

Creates the necessary input for CPM*** 

FNZERO*** 

Looks for one zero of a function in a 
given interval. 

CROUT*** 

Solves M sets of N linear equations in 

N variables. Using the Grout algorithm 

GREGRY*** 

Uses Gregory’s method of integration. 


with row interchanges. 

HKJVS*** 

Does a Hooke-Jeeves pattern search. 

CSQRT*** 

Calculates square roots of complex 

HUGPRI*** 

Searches for primes in a specified range 


numbers. 


of 1000. 

DEI OR*** 

Solves the initial value problem: 

Y' = F(X, Y) 

INTGRT*** 

Simple integration routine. 


Y(X 0 ) - Y 0 

INVERS*** 

Inverts a matrix using the exchange 
method. 

DE20R*** 

Solves the initial value problem: 


' 

Y" = F(X, Y, Z') 

INVHIL*** 

Contains a routine which produces the 


Y(X 0 ) - Yo 


inverse of an NxN segment of the 


Y'(X 0 ) =Y 0 . 


Hilbert matrix. 




(continued on pg.4 ) 
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MATHEMATICAL PROGRAMS Continued 


LEGEM*** 

LINEAR*** 

LINPRO*** 

LINQUD*** 

MEALY1*** 

MEALY2*** 

NTRUTH*** 


Evaluates the Legendre symbol (A/P). 

Solves a system of linear equations. 

Linear programming using the two- 
phase simplex method. 

A linear or quadratic programming 
algorithm. 

Determines the classes of equivalent 
states of any specified finite-state Mealy 
machine. 

Simulates the I/O behavior of any 
specified finite-state Mealy machine with 
initial state. 

Computes N-valued truth tables for 
formulas of the propositional calculus. 

NUMINT*** Evaluates definite integrals using Gauss’ 

rule 

PERT*** Analyzes a PERT network. 

PHICOE*** Computes the value of the phi 

coefficient and the number of cases 
for data on 2 variables. 


PYTHAG*** 

RATINV*** 


Generates 86 primitive triples. 

Inverts a matrix whose elements are 
expressed as ratios of two numbers. 

REVSIM*** Revised simplex linear programming. 

ROMINT*** Performs Romberg’s integration on 
any function F(X). 


ROOTER*** 

SIEVE*** 

SIMEON*** 

TAUTLG*** 

TCHAIN*** 

TRIANG*** 

TTLG*** 

TURMUL*** 

WELLFM*** 

YIELD*** 

ZEROES*** 


Finds the roots of polynomials using 
Bairstow’s method. 

Demonstrates the sieve method of 
finding primes. 

Solves a system of linear equations 
with sets of right-hand-side (constant) 
values. 

Determines if a formula of the 
propositional calculus is a tautology. 
Input - data statements. 

Computes basic quantities for a 
transient Markov chain. 

Finds the unkown features of any 
triangle, given one side and 2 other 
parts. 

Determines if a formula of the 
propositional calculus is a tautology. 
Input - requested. 

Simulates the action of a Turing 
machine. 

Checks to see if a string of symbols 
constitutes a well-formed formula of 
the propositional calculus. 

Analyzes a Markov chain with 2 
absorbing states and N transient 
states. 

Locates "interesting” values of X for 
any function F(X). 


MISCELLANEOUS PROGRAMS- 


FORME*** 

Prints a number in the Fortran E 
format (easily modified to be used as 

PLOT*** 

Plots any number of points (X, Y). 


a subroutine). 

PLOTR*** 

Plots a maximum of 100 points (may 

FORMF*** 

Prints a number in the Fortran F 


be entered in any order). 


format (easily modified to be used 
as a subroutine). 

PLOTTO*** 

Plots one to six functions of X on the 

FORMI*** 

Prints a number in the Fortran 1 


same graph. 


format (easily modified to be used as 
a subroutine). 

SORT*** 

Sorts entries with 4 terms, 2 
alphabetic and 2 numeric. 

GRAPH*** 

Plots the graph of a function. 



GRAPH1*** 

Plots a function. 

TWOPLO*** 

Simultaneously plots two functions of 

HSTGRM*** 

Plots a histogram of test scores. 


a single variable X. 

INDEX*** 

Makes an index by grouping together 
identical entries (& page numbers), 
and alphabetizing. 

XYPLOT*** 

Plots single-valued functions of X 
(with X on the vertical axis). 


STATISTICAL PROGRAMS 


2222*** 

Calculates and displays the 

BACT2L*** 

Bayesian analysis of a 2-level 

2X2*** 

decomposition of Q for a four 
variable table. 

Calculates percentage tables, 

BACT3L*** 

contingency table. 

Bayesian analysis of a 3-level 
contingency table. 


chi-square value, probability, and Q 
for 2x2 tables. 

BAYES*** 

Revises probabilities according to 

2X2X2*** 

Calculates percentages, Yule’s Q, and 
confidence intervals for a dichotomized 

BICONF*** 

Bayes’ theorem. 

Computes population proportion and 

ANOVAR*** 

3-variable table. 

Analysis of variance for a factorial 
design of up to 14 factors. 

BINODI*** 

confidence limits, based on the 
binomial distribution. 

Calculates binomial distribution. 


(continued on pg.5) 
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STATISTICAL PROGRAMS Continued 
BINOMC*** 


-N 


BINOMD*** 

BINOMI*** 

BINONI*** 

BINOPO*** 

BINORM*** 




CHISQ*** 

CHISQX*** 

CONBIN*** 

CONDIF*** 

CONLIM*** 

CORREL*** 

CURFIT*** 

DECID2*** 

DECIDE*** 


Computes binomial coefficients- 
things taken 1 at a time. 

Binomial distribution—-computes the 
probability of I successes, and I or 
more successes, for all I, !<N 
where N is the number of trials. 

Computes values of the binomial 
distribution. 

Prints a table of binomial probabilities 
given the probability of success on 
each trial and the number of trials. 

Compares binomial probabilities with 
the approximations of the normal and 
Poisson distributions. 

Uses the normal approximation to the 
binomial distribution. Computes 
P(A< X < B), where X is the 
number of successes in N trials. 

Does calculations necessary for a 
statistical test on a binomial 
population. 

Computes standard score, weighted 
cummulative scores, and class ranks 
for a class of students. 

Computes chi-square values and 
probabilities for MxN tables, input - 
data statements. 

Computes chi-square values and 
probabilities for MxN tables. Input - 
requested. 

Estimates population proportion and 
computes confidence limites, based 
on the normal distribution. 

Computes confidence limits for the 
difference between two population 
means - normal distribution. 

Computes confidence limits for an 
unknown population mean, based on 
the normal distribution. 

Computes a correlation coefficient. 

Fits 6 common curves thru points 
using a least squares fit. 

Decides between an arbitrary 
judgement or a test on a piece of 
equipment suspected to be damaged. 

Helps decide among 3 alternatives. 


EMPIRS*** 

FPOLFT*** 

FVALUE*** 

GAME*** 

GAMMAT*** 

GEOMEN*** 

GRADER*** 

GROUP*** 

HYPERG*** 

LINCON*** 

UNFIT*** 

MANDSD*** 

MONCAR*** 

MSTDEV*** 

MULFIT*** 

NORDEV*** 

ONEWAY*** 

PDIS*** 

POLFIT*** 


Draws random samples from a 
distribution defined by the Pth, 50th, 
and (100-P)th percentiles. 

Does a least squares fit to a 
polynomial curve. 

Computes the exact probability of an 
F-ratio with (M,N) degrees of freedom. 

Solves a 2x2 game theory matrix. 

Solves a game theory matrix up to 
15x15. 

Computes the geometric mean and std. 
deviation for a geometrically normal 
set of data. 

Calculates the term average for each 
student and finds the class average. 

Uses grouped data to calculate 
various statistical measures. 

Computes and prints a table of 
hypergeometric probabilities for a 
specified sample population. 

Simple linear regression. 

Computes the best linear fit for a set 
of independent variables to a 
dependent variable. 

Calculates the mean, variance, and 
standard deviation for individual 
values or distributions. 

Evaluates a function of a maximum 
of 16 random variables, using Monte 
Carlo simulation. 

Computes the mean, variance, and 
standard deviation of a set of grades. 

Multivariate curve fit. 

Generates random numbers which are 
normally distributed with mean 0 and 
variance 1. 

Performs a one-way analysis of 
variance with equal sample sizes. 

Calculates the proportional distribution 
of a row (or column) of figures, and 
the confidence intervals for each 
frequency. 

Fits least-squares polynomials to 
bivariate data, using an orthogonal 
polynomial method. 

(continued on pg. 6) 
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STATISTICAL PROGRAMS Continued 


PRBSTA*** 

PROVAR*** 

RANDIG*** 

RANDOM*** 

ROW*** 

RXC*** 

SEVPRO*** 

STAT00*** 

STAT01*** 

STAT02*** 

STAT03*** 

STAT04*** 

STAT05*** 

STAT06*** 

STAT08*** 

STAT09*** 

STAT10*** 

STAT11*** 

STAT12*** 


Probability analysis - computes the 
probabilities of 10 statements and 
their denials. 

Does calculation for normal or 
student’s T distribution. 

Produces 500 random integers 
between 0 and 99. 

Randomly orders the integers from 1 
to N. 

Calculates the proportional distribution 
of a row or column of figures and 
95% confidence intervals. 

Computes chi-square, percentage 
table, expected cell values, and 
gamma for a table of data. 

Applies a chi-square test to several 
sample proportions. 

Computes the mean, variance, 
standard deviation and standard error 
of the mean. 

Computes the means, standard error 
of means, mean differences, standard 
error of difference, and T-ratio for 
two groups of paired data. 

Computes the means, variances, and 
T-ratio for two groups of unpaired 
data, (unequal variances) 

Computes the means, variances, and 
T-ratio for 2 groups of unpaired data, 
(equal variances) 

Computes chi-square values and 
probabilities for any number of two 
by two tables. 

Calculates the sign test confidence 
interval using fractional counts. 

Calculates the confidence limits for a 
set of data using the Wilcoxon signed 
rank sum procedure. 

Compares two groups of data using 
the median test. Produces a 2x2 
table and its chi-square value. 

Compares two groups of data by 
means of the Mann-Whitney two 
sample rank test. 

Computes 34 statistical measures for 
a series of weighted numbers as 
given in the NBS handbook 101. 

Computes the Spearman rank 
correlation coefficient for two series of 
data. 

Computes the correlation matrix for N 
series of data. 


STAT13*** 

STAT14*** 

STAT15*** 

STAT16*** 

STAT17*** 

STAT18*** 

STAT19*** 

STAT20*** 

STAT21*** 

STAT33*** 

STATAN*** 

STATNW*** 

STATWE*** 

STOVAR*** 

TESTMN*** 

TVALUE*** 

UNISTA*** 

WALDS*** 

WORDS*** 

XPOLFT*** 


Computes the analysis of variance 
table for a one-way completely 
randomized design. 

Produces the analysis of variance 
table, F-ratios for treatments and 
blocks of a randomized complete 
block design. 

Computes the analysis of variance 
table for a simple Latin square 
design. 

Computes the analysis of variance 
table for a simple Graeco-Latin 
square design. 

Computes the analysis of variance 
table and the F-ratio for treatments for 
a balanced incomplete block design. 

Computes the analysis of variance 
table and the F-ratio for treatments for 
a Youden square design. 

Computes the slope and other 
statistics for a linear regression with 
several Y values for each X. 

Performs a multiple linear regression 
according to Efroymson’s algorithm. 

Computes one or more multiple linear 
regressions on a batch of data. 

Same as STAT13*** but with 
weighted observations. 

Computes 34 different measures for 
an array of weighted or unweighted 
values of one variable. 



Same as STAT10* 
numbers. 


but for weighted 


Computes statistics for a simple linear 
regression with one independent 
variable. 

Contains 9 subroutines which 
generate random numbers according to 
9 probability distributions. 

Computes the probability of finding a 
certain population mean, based on the 
student’s T distribution. 

Computes the two-tail probability of a 
T-value. 

Computes various statistics on a list 
of numbers. 

Computes the important characteristics 
of Wald’s sequential test procedure. 

Writes first draft of a report on a 
2x2x2 table. 

Least squares fit to a polynomial curve. 
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AID (Algebraic Interpretive Dialogue) is a direct and easy-to-learn mathematical language capable of 

solving complex numerical problems. Its simple commands, based upon imperative English 

sentences, plus its interactive response to typed input, make it a particularly attractive "computing 

aide" for scientists and engineers, as well as those inexperienced in more formal programming 

languages. 


Commands are typed as short imperative verbs followed by their arguments, and numerical values 

written, for the most part, 

in standard mathematical notation. Facilities for editing, the ability 

to save procedures, the use of function libraries on the System, and the writing of Boolean 

propositions are all among the features included in AID. Simple, self-explanatory diagnostics 

are also provided. When used with the Model 37 Teletype or IBM 2741, AID recognizes upper 

and lower case characters. 


AID runs in 11 K of core, with 1 K of user data area, expanding to 14 K with 4 K of user data area 

when required. 


AID COMMANDS 

DESCRIPTION ' 

CANCEL 

Cancels a stopped process. 

(CANCEL) 

Cancels a stopped process initiated by a parenthetical DO. 

DELETE.. . 

Erases the specified item or items from storage. 

DEMAND. . . 

Causes type out requesting a value for a variable (1 per command). 

DISCARD ITEM m 

Deletes item m from external file in use. 

DO . . . 

Causes specified iteration of a previously defined indirect step or steps. 


Indirect steps return control to next step. 

(DO ... ) 

Starts a new execution without cancelling a stopped process. 

DONE 

Skips execution of remaining steps of a part during current iteration. 

FILE... AS ITEM... 

Stores item in open external file. 

FORM 

Defines a format for typeout. 

GO 

Continues execution of a currently stopped process. 

.. . IF . . . 

Conditional command. Causes command to which it is appended 


to be executed only if the proposition following the IF is true. 

LET ... = .. . 

Defines arithmetic formulas. Boolean functions, and user functions 


and associates them with identifiers. Formula or function is reevaluated 


each time identifier appears. 

LINE 

Advances paper one line. 

PAGE 

Advances paper to top of next page. 

QUIT 

Skips execution of remaining steps of a part and cancels further DO 


iterations. 

RECALL ITEM . . . 

Reads in item stored by FILE command. 

RESET TIMER 

Resets control processor timer. 

SET . 

Assigns a value to a variable. 

STOP 

Halts execution and returns control to user. 

TO m 

Stops execution in progress and transfers control to new step m. 

TYPE . .. 

Types out specified information. 

USE FILE . . . 

Accesses an external storage file. Continued on other side 

*AID is an adaptation by Applied Logic 

Corporation of the JOSSt language, developed by the RAND Corporation under contract with the United States Air Force. 

t JOSS is a trademark and service mark of The RAND Corporation for its computer program and services using that program. 
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AID Characters and numerical operations 


A 

a 


Z 

z 


upper case 

+ 

addition 

/ 

division 

lower case 

- 

subtraction 

* 

multiplication 

digits 

= 

equal 

$ 

current line number 

absolute value 

# 

not equal 

* 

cancel line 

brackets 

< = 

equal or less than 

< 

less than 

parentheses 

exponentiation 

> = 

- 

equal or greater than 
character position in 
typeout formats 

> 

greater than 

onditional expression can 

be used to perform a table lookup for 

al 1 items whose val 

!ues 


0,1... . 9 


( ) 


EXAMPLE:* 


satisfy one or more conditions. 


1.1 Set A(x) ~ x^2 + x*.5 - 5*x.i^ 

Do step 1.1 for x = 1(1 )35./$ 

Type A (20).^ 

Type A(3).£* 

Let F(x) - (x<0:x;x>700:x;fp(x)>0 and x>300:x; +• ).$ 

Find all values which are (1) less 
than zero;, (2) greater than 700; 
or (3) greater than 300 and have 
a fractional part which is nonzero. 

If x is none of these, perform a 
line feed, carriage return (indicated 

1.1 Type F(A(i)).P by the symbol). 

Do step 1.1 for i ~ 1 (5)35Test every fifth item in the table. 

Values in tested items which do not 
satisfy any of the three propositions 
result in line feed/carriage return 
(because of the terminating «- sym¬ 
bol in the conditional expression). 


Formula to generate xth table item. 
Generate a 35-item table. 


Let E(x) — (fp(x/2)-0:x; «- ).$ 

1.1 Type E(A(i)).^ 

Do step 1.1 fori = 1(1)35.^ 


Find all even-numbered values in 
the table . 


Test every item in the table. 



©Copyright 1968, !969, Digital Equipment Corporation, All rights reserved. Reproduced by permission. 
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BASIC 


A 


JULY, 1969 


Applied Logic Corporation has expanded BASIC on the AL/COM System to meet customer 
demand. Features of BASIC include: 

Constant Values— 

&PI The value of pi 

&E The value of the transcendental number “e” 

&Q$ The single character 

Catalog— 

By typing CAT in BASIC, the user gets a listing of all BASIC files in his directory. 

File Capability— 

Users may read and write files in BASIC of over 1 million characters. The commands 
are BASIC-easy (see example on reverse side). For an explanation of BASIC’s file 
capability on the AL/COM System, type 
TYPE SYS:BASIC.MOD 

String Variables are defined by a $; thus string labels may be A$, B3$. A list of character 
strings is written in vector form, e.g. V$ ( ) signifies a list of strings and V$ (3) is the third string 
in the list. 

All Variables are automatically set to 0 before each run. 

In Looping, the initial, final, and incremental indices may be formulas of any complexity. Also, 
the initial index may be greater than the final with a decremental index, e.g. 

70 FOR I = (Cl/.4) TO -6.1 STEP - .810 

TAB function on output for formatting, e.g., 

195 PRINT "CREDIT” TAB(20) "DEBIT” TAB(45) "TOTAL” 

200 PRINT Cl TAB(20) D1 TAB(45) T2 

13 Matrix instructions for transposing, inverting, multiplying, finding the determinant, and 8 other 
standard matrix operations. 

Library programs may be referenced as old files by adding three asterisks to the name, e.g.: 
NEW OR OLD—OLD 

OLD FILE NAME—MORTCA * * * calls the mortgage calculation program and loads it. 

Additional modification to BASIC will also be recorded in SYS: BASIC.MOD as they 
are implemented. 

More on other side 
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Create data file for input. BASIC 

Program expects a file name extension “.BAF” in addition to the primary file name. 

•CREATE INPT.BAF 
*1 10 
00010 
00020 
00030 
*E 

EXIT 

tC 


1 • 5* -4*278 

“THIS IS A SAMPLE OF READING & WRITING FILES IN BASIC" 
$ 


Create main program in BASIC 
•BASIC 

NEW OR OLD--NEW 
NEW FILE NAME--TEST 

READY 


10 

11 

20 

30 

35 

36 

40 

41 

42 
47 
60 
99 


FILES INPT» OUTFIL 
SCRATCH #2 
READ #1>A*B*C$ 

C=< SIN(A) /* 5> 

D=(4*B)t2/C2*A) 

E =ABSCA*B-1.9) 

WRITE C$ 

#2 

#2*"THE VALUES 
#2* CiDIE 
"ALL DONE!” 


WRITE 

WRITE 

WRITE 

PRINT 

END 


FOR CsD* AND E ARE "1 


SAVE 

READY 

RUN 

BASIC 
ALL DONE! 

READY 


16:08 


03/13/69 


The FILES statement 
identifies the first named 
data file as #1, the second 
named as #2, etc., up to 9 
files; e.g. INPT.BAF is #1; 
OUTFIL.BAF, or #2, is 
created during program 
RUN. *The output file must 
first be SCRATCHed 
(line 11) before writing 
on it.* 


Read from INPT.BAF (#1) 
2 variables (A,B) and a 
string (G$). 


Write C$ onto output file 
(# 2 ). 


Write a blank line onto 
output file (#2) 


Write onto OUTFIL (#2) a 
label followed by answers 
(C,D,E). 


Program tells us we are 
done; we will now leave 
BASIC and TYPE answers. 



OUTFIL.BAF contains data generated by main program, BASIC. Use Monitor 
command TYPE: 

SYSTEM 


System command exits 
from BASIC. 


EXIT 

tC 

•TYPE OUTFIL.BAF 

OUTFIL.BAF 3/13/69 1616 400-1-124 

THIS IS A SAMPLE OF READING & WRITING FILES IN BASIC 

THE VALUES FOR C»D.» AND E ARE 1 .99499 97.6068 8.317 

EXIT 

tC 














COGO-10 is a civil engineering problem-oriented language that can be used in the solution of such geometric 
problems as: 

1. control, land, and right-of-way surveys; 

2. highway and interchange design; 

3. construction layout; 

4. bridge geometry. 


COGO-10 has these new features: 

1. programs can be written by the engineer in a matter of minutes; 

2. no computer programming knowledge required; 

3. programs can be of any length—not limited by size of computer memory; 

4. COGO-10 programs are written using a series of commands which describe basic civil engineering 
operations such as ALIGNMENT (optional short form ALN) used to calculate the horizontal alignment of 
a curve; 

5 . data required for each operation is included as part of the command, and free format is permitted; 

6 . known and calculated coordinates may be saved and used up to 999 points; 

7. calculated distances and angles may be saved and used; 

8 . comments may be inserted anywhere; 

9. COGO-10 has format control of output which is easy to read and associate with the corresponding 
input data. 

These features combine to make COGO-10 a system that is both easy to use and extremely efficient. 
COGO-10 and AL/COM combine to decrease the communication barrier between the civil engineer and 
the computer. 

COGO-10 and AL/COM free the civil engineer from tedious computation chores and permit more of his time 
to be devoted to true engineering work. 

Sample Problem and a COGO-10 Solution on other side.: 




*COGO-10 is the time-sharing version of COGO-90, which was developed jointly by the Puerto-Rico Department of Public Works and the Department of Civil 
Engineering, M.l.T. COGO-IO is 100% compatible with COGO-90. 
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Sample Problem and a COGQ-10 Solution 

Known Data: 

a. coordinates of points 6 and 51 

b. length and azimuth of line 51 -22 

c. length and bearing of line 22-14 

d. length of line 51 -97 and angle at 51 from 22 to 97. 

Desired Results: 

a. coordinates of all points 

b. length and bearing of line 14-97 

c. angle at 97 from 14-51 

d. area of the parcel bounded by side 35-42, arc 42-342, side 
342-22, and side 22-35 and the length and azimuth of the sides 
of the parcel. 

COGO-IO Solution: (What you type on the remote console is underlined) 



After logging in 


♦C 

,R COGO 

COGO-10 is ready. Type “Disk/File Name.” If commands are on disk otherwise type in commands on 
remote console. 

:CLEAR 1 999 

:STORE 51 5000.00 2000.00 

:LOCATE AZIMUTH 51 22 2236.07 116 34 00. 

PT 22, N = 3999.943, E = 3999.974 
:LOCATE/BEARING 22 14 2828.67 1 45 15 39. 

PT 14, N = 5990.988, E = 6009.230 
:*POINT 14 ON MAIN STREET 
:LOCATE/ANGLE 22 51 97 3605.09 -82 27 00. 

PT 97, N = 7984.644, E = 4022.022 
INVERSE/BEARING 97 14 

PT 97 TO PT 14, DIST = 2814.900, BRG = S 44 54 25.902 E 
:ANGLE 14 97 51 

ANGLE BY PTS: 14- 97- 51 =79 1 25.886 
:STORE 6 8000.00 6000.00 
:POINTS/INTERSECT 42 51 6 14 97 
PT 42, N = 7144.550, E = 4859.399 
: LOCATE/LINE 51 42 35 1156.21 
PT 35, N = 5693.726, E = 2924.968 
:DISTANCE/SAVE 51 42 20 
PT 51 TO PT 42, DIST = 3574.249 
:ARC/LINE/POINTS 342 51 D20 14 22 14 

PT 342, N = 5521.977, E = 5535,930 
: AREA/AZIMUTHS 35 42 342 22 35 
PT 35 TO PT 42, DIST = 2418.039, AZ = 53 7 48.369 
PT 42 TO PT 342, DIST= 1757.963, AZ = 157 21 58.854 
PT 342 TO PT 22, DIST = 2162.348, AZ = 225 15 39.008 
PT 22 TO 35, DIST = 2006.125, AZ = 327 35 51.521 
AREA = 4179026.700 SQ. FT. and 95.937 ACRES 
:*LAND PARCEL OWNED BY J. SMITH 
:SEGMENT/PLUS 42 342 D20 

CHORD = 1757.963, ARC = 1776.183, SEG AREA = 129042.520 SF 
CUM AREA = 4308069.300 SF OR 98.900 ACRES 
:READ/CONSOLE 
:FINISH 









EXIT 

+ C 







































ECAP 


s Program) DECEMBER, 1969 



ECAP (Electronic Circuit Analysis Program) is an integrated system of programs developed to aid 
the electrical engineer in the design and analysis of electronic circuits. There are four closely related 
programs which produce DC, AC or transient analyses of electrical networks from a source program 
description of circuit topology, a list of corresponding component values, a selection of the type of analysis 
desired, a description of circuit excitation, and a list of output desired. 

ECAP is not difficult to use. It is not necessary for the user to have any knowledge of the internal 
mechanics of the program or any prior programming experience. The techniques involved in using ECAP 
are easily learned by the electrical engineer because ECAP’s input language and its output are written 
in electrical circuit terminology. 

Advantages of AL/COM ECAP: One might consider ECAP as an electronic circuit simulator which permits 
the designer to use capabilities of the digital computer. ECAP has several advantages over breadboarding: 

First, the effects of parameter variations can be much more easily observed using a computer 
program than using breadboard evaluation. 

For example: the effects of changing only collector capacitance or alpha cutoff frequency of a 
transistor are difficult to determine experimentally, but are easy to evaluate with the computer. 

Second, the circuit designer can analyze the effect of a component failure on circuit performance 
without removing or destroying the component involved. 

Third, the computer allows the designer to study combinations of component parameters, such as worst 
case, which are difficult if not impossible to achieve in the laboratory, and high power circuits 
which would otherwise require construction of expensive small scale models. 

Fourth, the program makes it possible to simulate the effects of expensive or hard-to-obtain components. 

ECAP capabilities are outlined in the following description of the four modules available to the user. 

Input Language: This program acts as the communication link between the user and the three analysis 
programs. The language is user-oriented and allows complex circuits to be simply described to the 
computer from easily developed equivalent circuits. ECAP language statements are used to completely 
define the topology of the circuit, circuit element values, type of analysis to be performed, driving functions, 
and output required. 

DC Analysis: The DC analysis program obtains the DC or steady-state solutions of linear electrical networks 
and provides the worst case analysis, standard-deviation (statistical) analysis, and sensitivity coefficient 
calculations if requested. This program also provides an automatic parameter modification capability. 

AC Analysis: The AC analysis program obtains the steady-state solution of linear electrical networks 
subject to sine-wave excitation at a fixed frequency. Since this program also contains the automatic 
parameter modification capability, it is easy to obtain frequency response and phase response solutions. 

Transient Analysis: The transient analysis program provides the time-response solution of linear or 
nonlinear electrical networks subject to arbitrary, user-specified driving functions. Nonlinear elements are 
modeled by using combinations of linear elements and switches to provide piecewise linear 
approximations to the nonlinear characteristics. 

Continued on other side 
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An Example of ECAP Analysis 


A sample ECAP analysis of a “bridged T” circuit is reproduced here to illustrate the extreme simplicity and 
speed of this user-oriented program. Transient analysis of circuits of this general type by conventional 
means is a time-consuming procedure and usually involves undesirable approximations. After creating a 
data file with ECAP statements (in this case TR3) the user operates ECAP and responds to three basic 
program control questions. 


\,xf 

B2 


Node Voltages at VI, V2 and V3 (volts) 
16 



Ih 

V2 

lh 

V3 

B3 


B5 


iooon 

B4 1/if 


B6 Ipf B 7 

looon 


Circuit Schematic 


AL/COM 

ECAP 

10/ 6/69 11:10 AM 

IMPUT - 

OUTPUT 

= 


LIST INPUT FILE? 

00 1 00 


TRANSIENT ANALYSIS 

00110 

B1 

NC1,0), RO000, I-.02 

0012 0 

B2 

NO ,3) ,CO E-6 

00 1 30 

B3 

N< 1 ,2),L=1 

00140 

B4 

N (2,0) , C- 1 E-6 

00150 

B5 

N(2,3> , L= 1 

00160 

B6 

')(3,0) , CO E-6 

00170 

B7 

N(3,0),R:1000 

001.30 


TIME STEP = .01 E-3 

00190 


OUTPUT INTERVAL = 50 

00200 


FINISH TIME - 10E-3 

00210 


PRINT, VOLTAGES, CURRENTS 

00220 


EXECUTE 



Time (milliseconds) 

Bridged T circuit transient response 
(plotted from ECAP results) 


TRANSIENT ANALYSIS RESULTS: 


T = 0.0000000 


NODES NODE VOLTAGES 

1- 3 0.3999900E-03 0.5999840E-12 0.1 999940F.-03 


BRANCHES ELEMENT CURRENTS 

1- 4 0.3999900E-06 0.1999960E-01 0 .3999900E-10 0.5999840E-10 

5- 7 -0.1999940E-10 0.1999940E-01 0.1999940E-06 

T = 0.5000000 E-03 


NODES NODE VOLTAGES 

1- 3 0.1 038332 Et-02 0.8831 5 05 E+00 0.4308754 E+0 1 


BRANCHES ELEMENT CURRENTS 

1- 4 0.1038332 E-01 0.6471922E-02 0.3144762E-02 0.4493564E-02 

5- 7 -0.1348802E-02 0.8143865E-03 0.4308734E-02 







_ 





















' 
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AL/COM GASP II is a versatile and easy-to-learn Fortran IV based simulation language useful in 
simulations of discrete events and construction of queueing, network modeling and similar 
programs. GASP finds wide application in the fields of operations research, systems analysis, 
production and inventory control, and many other areas of study. 

CONVERSATIONAL MODE 

GASP, as implemented on AL/COM, has been adapted to take advantage of its many convenient 
and time-saving features, and to operate in a conversational mode, facilitating program preparation 
and debugging, as well as changes in program data or functions between simulation runs. 

A conversational editor is used to process standard GASP variables and verify input data. The 
user may examine pertinent GASP program controls at any time and a debug mode is provided 
which types out diagnostic messages in the event of error. 

GASP LIBRARY STRUCTURE 

All standard GASP subprograms and utility programs are included in a single AL/COM library. They 
are incorporated into the user's FORTRAN written simulation program by the appropriate FORTRAN 
call statements contained in a control program prepared by the user. 

SPECIAL SUBROUTINES 

In addition to the standard GASP subroutines described in the literature, and familiar to users, AL/COM 
GASP includes several subprograms which facilitate input and output file manipulation, data collection 
and program controls. 

GASP LITERATURE 

The user is referred to the following sources for detailed information on the GASP language and simulation 
examples utilizing GASP. 

1. Simulation with GASP II, A.Pritsker and P.Kiviat, Prentice-Hall, Inc., 1969. 

2. System Simulation, Geoffrey Gordon, Prentice-Hall, Inc., 1969. 

3. GASP - A General Activity Simulation Program, Applied Research Laboratory, Monroeville, Pa., United 
States Steel Corp., 1963 

4. GASP II Program Bulletin No. 95880 (short bulletin describing implementation on AL/COM Systems), 
Contact your AL/COM representative, or Technical Publications Dept., Applied Logic Corp., One Palmer 
Square, Princeton, N.J. 08540 

OTHER FEATURES 

• Since GASP is based upon FORTRAN, AL/COM's extensive library of FORTRAN subroutines is particularly 
valuable in creating simulation functions and simulation subprograms. 

• The AL/COM SEDIT, COPY, and LOAD commands, and DDT mode streamline preparation of main and 
control programs for GASP users. 

• AL/COM's GASP 11 software includes subprograms to set up input/output files, collect user data, manipulate 
storage files and generate event data. 

■ For the user's convenience, and to avoid errors, a special file, COMMON.GSP, is available, containing all the 
basic requirements for BLANK COMMON required in GASP programs. 

Continued on other side 

*GASP II is a development by Arizona State University of the original GASP language created at U.S. Steel Corporation. 
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EXAMPLE: 

A portion of the input, data, intermediate results and summary report for a typical GASP simulation 
problem, run on an AL/COM System, is illustrated here. The user is referred to reference 1, pages 
142-152, listed under "GASP Literature''on other side, fora complete discussion of the program and 
problem (a simulation of a drive-in bank). 


1 1 6 


AL/COM GASP 6-FEB-78 13*82 

INPUT = TTY* 

OUTPUT = TTY* 

ENTER USER DATA* *4 1 1 
♦♦START GASP DATA** 

♦NAME JOHN DOE 

♦ NPROJ 4 
♦NRUNS 1 
♦NCLCT 2 
♦NSTAT 3 

♦ ID 28 

♦ IM 4 

♦KRANK 1 4 4 

♦IN N 1 1 1 

♦JCLR 1 

♦NORPT l 

♦TBEG 8 

*TFIN=28» 

♦JSEEDr-1 

♦ATRIBs si 1« •I 
WHICH FILE?*! 

SCALE NOT DEFINED 
ENTER SCALE VALUE*188 

♦FILE 1/ I 2 

♦FILE 1/ 1 3 


♦♦GASP DATA DUMP** 


ID VALUES 
IM VALUE: 
MS TOP VALUES 
MXC VALUES 
NCLCT VALUES 
NHIST VALUES 
NOQ VALUES 
NORPT VALUES 
NPRMS VALUES 
NR UN VALUES 
NRUNS VALUES 
NSTAT VALUES 
SCALE VALUES 
JSEED VALUES 
TBEG VALUES 
TFIN VALUES 
I NIT VALUES 
ATRIB VALUES 
INN VALUES 
KRANK VALUES 
NOELS VALUES 


28 

4 

8 

1 

2 
8 
3 
1 
8 
1 
1 
3 

108.888 
-I 

8*888 

288*088 

0 

8*000 
I 
1 
8 


8*800 


PARAM PRINTOUT NOT ALLOWED 
NAME PRINTOUT NOT ALLOWED 


0*000 

i 

0 

0 


0*000 


NPROJ VALUES 
MON VALUES 
NDAY VALUES 
NYR VALUES 
JCLR VALUES 


4 
2 
6 

1970 


♦TYPE ERX 
NAME NOT ALLOWED 
♦TYPE ID 
VALUES 20 
♦NSTAT s 3A5 

ILLEGAL NUMERIC CHARACTER 
♦EXECUTE 


SIMULATION PROJECT NO. 
DATE 2/ 6/1970 


SCALE s 100.0000 
CONTINUE?-AMS. "Y” OR w r*Y 


♦♦GASP JOB STORAGE AREA DUMP AT 


4 BY JOHN DOE 
RUN NUMBER 1 


0.0000 TIME UNITS** 



1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 


10 

180 

100 

30000 

0 

0 

0 


100 

200 

308 

400 

0 

0 

9 

0 

0 

0 

8 

0 


10 

0 

i 

0 

0 

i 

0 

i 

0 

0 

i 

0 

i 

0 

0 

0 

0 

0 

0 

0 


2 

3 

4 

7777 

6 

7777 

8 

7777 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

8888 


9999 

2 

3 

9999 

5 

9999 

7 

9999 

9 

10 
1 l 
12 

13 

14 

15 

16 

17 

18 
19 


♦♦GASP SUMMARY REPORT** 
SIMULATION PROJECT NO. 4 BY 
DATE 2/ 6/ 1970 RUN NUMBER 

**GENERATED DATA** 


♦FILE 1/ 300 4 

CODE 

MEAN STD. DEV. 

MIN. 

MAX. 

OBS. 

♦FILE 200 

1 

2.6851 2.0120 

0.0000 

10.9400 

568 

*FILE 2 

2 

0.5280 0.5260 

0.0000 

3.9200 

568 

** TIME 

GENERATED DATA** 




♦FILE 3 

CODE 

MEAN STD* DEV. 

MIN 

MAX. 

TOTAL TIME 

♦FILE 3 

1 

0.9469 0*2242 

0*0000 

1.0000 

300.0000 

2 

0.9151 0.2787 

0.0000 

1.0000 

300,0000 

♦NDAY 6 

3 

5.1036 2.4033 

0*0000 

8.0000 

300.0000 

♦ MON 2 







FILE PRINTOUT, FILE NO. 1 




♦ NYR 1970 

AVERAGE 





NUMBER IN FILE WAS 

2.8620 




STD. DEV. 
MAXIMUM 


0.4131 


FILE CONTENTS 




300.1400 2 
300.1600 1 
300.4300 3 

.0000 

.0000 

.0000 

298,9600 

300.1600 

296.1500 

298.9600 

0.0000 

298.7100 

FILE PRINTOUT, 

FILE 

NO. 2 


AVERAGE NUMBER 
STD. DEV. 1 . 
MAXIMUM 3 

IN FILE WAS 1 

1454 

i.7090 

FILE CONTENTS 




299.5000 1 

.0000 

299.3900 

299.3900 

FILE PRINTOUT, 

FILE 

NO. 3 


AVERAGE NUMBER 
STD. DEV. 1. 
MAXIMUM 3 

IN FILE WAS 1 

1029 

.5325 

FILE CONTENTS 




300*1600 1 

.0000 

299.5000 

299.5000 


MEAN TIME BETWEEN ARRIVALS 

- 

0.40 

MEAN SERVICE TIME FOR TELLERS 

- 

1.00 

PERCENT OF CUSTOMERS BALKING 

= 

21.28 

NUMBER OF CUSTOMERS BALKING 

r 

153.00 

TOTAL CUSTOMERS 

s 

719.00 

EXIT 



TC 




















USP1.6 




(USt Processing Language) NOVEMBER, 1969 


—-———— 


LISP* is a versatile, interactive computer programming language, which possesses great power and 
flexibility for the completely recursive manipulation of symbolic data in the form of tree-structured lists. 

It has important applications in symbolic calculations in differential and integral calculus, high-energy 
physics, mathematical logic and formal proofs, game theory, language translation and artificial 
intelligence. 

Advantages of LISP 1.6 

In addition to the usual LISP features, several new features have been included, such as a compiler; 
an arbitrary precision integer package; an S-expression editor; up to 14 active input-output channels; 
the ability to control the size of memory spaces; a standard relocating loader to load assembly language 
or compiled programs. 

Interpreter and Compiler 

This LISP system uses an interpreter; however, there is also a compiler which produces machine code. 
Compiled functions are approximately ten times faster and also take less memory space. 

Arbitrary Precision Integers 

LISP numbers have always been second-class citizens, in the sense that unlike strings (print names) 
numbers have had a maximum length. In the LISP 1.6 system there is an optional arbitrary precision 
integer package which extends the length of LISP integers from 36 bits to any length. 

Editor 

A new LISP editor is now available. Significant improvements have been made in the command 
structure and editing speed. The major addition is a pointer, which can be moved through the editor's 
string, the editing features affecting only the area to the right of this pointer. One can insert and delete 
arbitrary character strings, and file and unfile these strings on various 1-0 devices. 

Memory Allocation 

The LISP 1.6 system has memory allocation and reallocation procedures which allow users to adjust 
the sizes of the various areas of memory to their own needs. 

Loader 

A modified version of the standard PDP-6/10 MACRO-FORTRAN loader is available for use with LISP. 
One can call the loader into LISP core image at any time to combine LlSP-compatible MACRO programs. 

AL/COM Documentation 

A complete LISP 1.6 Reference Manual, Number RM9078, is available from the Technical Publications 
Department, Applied Logic Corporation, One Palmer Square, Princeton, N. J. 08540 

Continued on other side 



The LISP language and its first implementation were developed by a group under John McCarthy at Project 
MAC, the Massachusetts Institute ot Technology, under sponsorship ot the Advanced Research Projects Agency. 
The PDP-10 version was developed at the Artificial Intelligence Laboratory, Stanford University Computer Science 
Division, by John R. Allen and Lynn H. Quam. 
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Example 

A small portion of a LISP demonstration program, ELIZA, designed to simulate a psychiatrist’s responses 
to patient’s (user’s) input, is reproduced below, together with atypical session on the couch. 


(DEFPROP WORKER 
(LA Md DA NIL 

(PROG (SENTENCE SOBLIST KEYSTACK) 
(I NC (I NPUT TTY: X)) 

(TER PR I ) 

(TERPRI ) 

A (INITIALIZE) 

(READI N) 

(A NA LYZE) 

(TERPRI ) 

(TERPRI) 

(CLEANUP) 

(GO A))) 



1C 

JR ELIZA 
(WORKER) 

HELLO 

HOW DO YOU DO. PLEASE STATE YOUR PROBLEM 
MY TROUBLE IS MY MOTHER 
YOUR TROUBLE IS YOUR MOTHER 

YOU ARE B El NG REPETITOUS 

WHAT MAKES YOU THINK I AM BEING REPETITOUS 
PERHAPS YOUR MOTHER PREFERED YOUR BROTHER 
YOU DON'T SEEM QUITE CERTAIN 
MY MOTHER ALWAYS LIKED MY BROTHER BEST 
TELL ME MORE ABOUT YOUR FAMILY 
1HERE WERE TEN OF US - ALL CRAZY. 

PLEASE GO ON 

FATHER LEFT FOR PARTS UNKNOWN WHEN I WAS ONLY TEN. 

WERE YOU REALLY 
ONLY TEN? 

WHAT DOES THAT SUGGEST TO YOU 
THAT HE WAS LEADING A DOUBLE LIFE. 

LETS DISCUSS FURTHER WHY YOUR TROUBLE IS YOUR MOTHER 
SHE DOMINATES MY FAMILY. 

WHY DO YOU SAY YOUR FAMILY 
IT IS MY FAMILY, IS’NT IT! 

DOES THAT SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU 
YES,MANY THINGS. THE OLD WITCH SMASHED MY CAR,FOR ONE. 

EARLIER YOU SAID YOUR MOTHER ALWAYS LIKED YOUR BROTHER BEST 
YES SHE PREFERRED HIM TO ME 
YOU SEEM QUITE POSITIVE 

YES, HE GOT THE BEST OF EVERYTHING IN THE FAMILY 

BUT YOUR FAMILY 

IHEY SPEND TOO MUCH MONEY. 

DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS 

I FEEL STRONGLY ABOUT MONEY. 

TELL ME MORE ABOUT SUCH FEELINGS 

MY FEELING FOR MONEY DOMINATES ALL MY FANTASIES 

IS IT IMPORTANT TO YOU THAT YOUR FEELING FOR MONEY DOMINATES 
ALL YOUR FANTASIES 

VERY! MONEY IS THE ROOT OF ALL EVIL IN OUR FAMILY. 

SUPPOSE MONEY WERE NOT THE ROOT OF ALL EVIL IN OUR FA MI LY 
THEN I SUPPOSE WE WOULD BE SMOTHERED IN MOTHER LOVE. 

YOU SAY THEN YOU SUPPOSE WE WOULD BE SMOTHERED IN MOTHER LOVE 
NOT YOU AND I STUPID, JUST MY FAMILY AND ME 
OH, I AND YOU STUPID 

I SEE YOU RECOGNIZE THAT WORD. HAVE YOU HEARD IT A LOT? 
PERHAPS IN YOUR FANTASY WE SEE EACH OTHER 
SO, YOU ARE THAT KIND OF HEAD DOCTOR? 

DOES IT PLEASE YOU TO BELIEVE I AM THAT KIND OF HEAD DOCTOR 


EXPR ) 

(DEFPROP INITIALIZE 
(LAMBDA NIL 

(SETQ SOBLIST (APPEND OBLIST (SETQ SENTENCE (SETS KEYSTACK NIL))))) 
EXPR ) 

(DEFPROP READI N 
(LAMBDA NIL 

(PROG (*ORD LETTER FLAG TERMINAL) 

A (COND ((NULL (READWORD)) (GO B))) 

(MAKESENTENCE) 

(SETK EYSTACK) 

B (BREAKA NALYZE) 

(COND ((NOT FLAG) (GO A))) 

(SETS SENTENCE (REVERSE SENTENCE)))) 

EXPR) 

(DEFPROP ANALYZE 
(LAMBDA NIL 

(PROG (RULES PARSELI ST DECOMP) 

(SETQ KEYSTACK 

(APPEND KEYSTACK 
(LIST 

(GET (QUOTE NONE) 

(COND ((ZEROP 

(SETQ FLIPFLOP 

(PLUS 2. (MINUS FLIPFLOP)))) 
(QUOTE MEM)) 

((QUOTE LASTRESORT))))))) 

A (SETQ RULES (GET (CAR KEYSTACK) (QUOTE RULES))) 

B (SETQ DECOMP 

(CAAR 

(COND ((ATOM (CAR RULES)) 

(SETQ RULES (GET (CAR RULES) (QUOTE RULES)))) 
(RULES)))) 

(SETQ PARSELIST NIL) 

(COND ((NOT (TEST DECOMP SENTENCE)) (SETQ RULES (CDR RULES))) 
((AND (NOT (ATOM (CAR (SETQ RULES (CAR (ADVANCE)))))) 

(NOT (EQ (CAAR RULES) (QUOTE PRE)))) 

(RETURN (SENTPRINT (RECONSTRUCT (CAR RULES))))) 

((NOT (ATOM (CAR RULES))) 

(SETQ SENTENCE (RECONSTRUCT (CADAR RULES))) 

(SETQ RULES (CDDAR RULES))) 

((EQ (CAR RULES) (QUOTE NEWKEY)) 

(SETQ KEYSTACK (CDR KEYSTACK)) 

(GO A))) 

(GO B))) 













MACRO-10 


JANUARY, 1970 



MACRO-10 is the name applied to both the symbolic assembly program, and to the powerful and 
versatile assembly language used in programming AL/COM computers. MACRO-10 is a two-pass 
assembler, operating in a minimum of 6K core. It performs many useful and unique functions, 
making machine language programming easier, faster, and more efficient. The assembler processes 
source program statements by translating mnemonic operating codes to binary machine codes, 
relating symbols to numeric values, assigning relocatable or absolute core addresses for program 
instructions and data, and preparing an output listing of the program which notes any errors detected 
during assembly. MACRO also allows the programmer, by creating new language elements, to perform 
a series of specialized functions. 

MACRO-10 Capabilities 

Users of AL/COM Time-Sharing may write MACRO-10 programs and subroutines as a series of 
free-format statements. Here are some of the capabilities at the disposal of the MACRO programmer: 

1. MACRO is extremely useful in writing subroutines to do special purpose bit manipulations on scalar 
and array variables for FORTRAN programs. 

2. Powerful “macro” capabilities permit entire coding sequences to be generated with a single 
statement. In some programs they may be used repeatedly, changing only the real arguments. 

3. Functions and subroutines, to be called from FORTRAN IV programs, can easily be written in 
MACRO-10. 

MACRO-10 LANGUAGE STATEMENTS 

MACRO-10 programs are prepared, using SEDIT, as a sequence of statements. Each statement is 
normally written on a single line. MACRO-10 statements are virtually format-free. There are four 
types of elements in a statement. These elements are identified by their order of appearance and by 
a delimiting character or space. Statements are written in the general form: 


label: operator operand, operand; comments <carriage return> 


The assembler interprets and processes these statements, generating one or more binary instructions 
or data words, or performing an assembly process. A statement must contain at least one of the 
elements, and may contain all four types. Some statements are written with only one operand; 
others may have many. 

Labels 

A label is the symbolic name, created by the programmer to identify a statement. If present, the label, 
or labels, are written first in a statement, and are terminated by a colon (:). 

Operators 

An operator may be one of the 366 mnemonic machine instruction codes (see System Reference 
Manual), a command to monitor, or a pseudo-operation code which directs assembly processing. 
Programmers may also devise pseudo-ops to extend the power of the assembly language. An 
operator may also be a “macro” name, which calls a user-defined macro instruction. Like 
pseudo-ops, macros direct assembly processing, but possess unique power to handle repetition 
and to extend and adapt the assembly language. 


Operands 


Operands are usually the symbolic addresses of data to be accessed during execution, or input data 
or arguments of a pseudo-op or macro instruction. In every case, interpretation of operands depends 
upon the statement operator. Operands are separated by commas, and terminated by a semicolon (;) 
or carriage return. 

Continued on other side 
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Comments 

Notes may be added to a statement following a semicolon. They do not affect assembly or execution, 
but are useful in program listing, for analysis or debugging. 

Symbols 

The programmer may create his own unique symbols for statement labels, operators, and operands, 
and also utilize the standard machine instruction code symbols to direct processing. A symbol 
consists of one to six characters from the set of 26 letters (A-Z), 10 digits (0-9) and 3 special 
characters ( $, %, .). A symbol used as a label is “defined”, and can be referenced by an 
instruction, or data word anywhere in the program. Symbols used as operators are predefined, either 
by the programmer, or by the assembler if a mnemonic machine instruction code, and control 
program assembly or processing. Symbols used as operands may be symbolic references to defined 
labels where the arguments to be used are to be found, or the values of constants or character strings. 

The assembler processes symbols in source program statements by referencing its symbol table, 
relating all defined symbols to their binary machine codes. Initially the symbol table contains 
mnemonic “op” codes of the machine instructions, monitor and I/O command mnemonics, and the 
assembler “pseud-op” codes. As the source program is processed, new symbols, defined in the 
program, and by MACRO statements for use by the source program, are added to the table. 

Example: a Fortran-callable subroutine to do a character fetch. 


00100 


TITLE 

IGCHAR 


00110 

• 




00120 

« 

♦ 

CALL IGCHAR (HOLLER, 

J, M, N) 

00130 

• 

9 




00140 

• 

f 

WHERE * 

HOLLER’ IS A 

HOLLERITH VARIABLE (INPUT) AND ’ 

00150 

• 

f 

IS THE 

NUMBER OF THE 

CHARACTER WHICH THE USER WISHES 

00160 

a 

9 

EXTRACTED (INPUT). 

(1<J<5)• THE SPECIFIED CHARACTER 

001 70 

a 

9 

IS RETURNED AS A 1H 

VARIABLE IN ARGUMENT 'M*, AND AS 

00180 

• 

9 

A RIGHT 

JUSTIFIED INTEGER IN VARIABLE ’N' CM’ AND 

00190 

a 

9 

’N' OUTPUT). 


00200 

a 

9 




00210 


ENTRY 

IGCHAR 


00220 

a 

9 




00230 

PNT: 

POINT 

7,@0(16),6 


00240 


POINT 

7,@0(16) ,13 


00250 


POINT 

7,@0(16),20 


00260 


POI NT 

7,@0(16),27 


00270 


POINT 

7,@0(16),34 


00280 

• 

9 




00290 

SPACE4: 

ASCII 

/ / 


00300 

• 

9 




00310 

IGCHAR: 

Z 


; SAVE AC 16 

00320 


MOVE 

1,@1(16) 

; GET CHAR POSITION 'J’ 

00330 


SKIPLE 

1 

; IF NOT 0<J<6 

00340 


CAIL 

1,6 


00350 


MOVEI 

1,1 

; SET J TO 1 

00360 


LDB 

0,PNT-1(1) 

; FETCH BYTE 

00370 


MOVEM 

0,03(16) 

• STORE IN VARIABLE ’N’ 

00380 


I OR 

0,SPACE4 

; OR IN TRAILING SPACES 

00390 


ROT 

0,-7 

• MAKE IT THE FIRST CHAR 

00400 


MOVEM 

0,@2 (1 6) 

; STORE IN VARIABLE ’M’ 

00410 


JRA 

16,4(16) 

; RETURN ! 

00420 


END 



EXIT 





tC 

• 


























AL/COM-COBOL is a version of COMPACT COBOL, or, as defined by USASI, 
a minimum subset of standard COBOL. 

The following is a description of the differences between AL/COM-COBOL 
and standard COBOL. 

1. Overall language considerations. 

Data-names and numeric literals may not exceed 15 characters. All names must be 
unique. (To use DDT the first 6 characters of names must be unique.) 

The space and the period are the only valid punctuation characters. 

Only the figurative constants SPACE and ZERO, and their plurals, are permitted. 

Condition names and the special register TALLY may not be used. 

Indexing is limited to one dimension only. Each statement must be ended by a period. 

2. Processing capabilities. 

The standard COBOL verbs are available with the following exceptions: COMPUTE 
and EXAMINE are not part of this subset of COBOL; only option 1 of the PERFORM 
verb is permitted; the false path (ELSE or OTHERWISE) may not be used on IF 
statements. 

Input-output operations are handled in the standard manner. The following input-output 
devices are available to the AL/COM-COBOL programmer: card reader, card punch, 
magnetic tape, disc, printer, and teletype. If no device is mentioned, the ACCEPT and 
DISPLAY verb assume the user’s teletype. 

A maximum number of 17 input and output files per job may be used. At this time, records 
may be fixed length only, and a file may be accessed only sequentially. Random access 
processing (reading and writing according to a defined ACTUAL KEY) will be available 
shortly. In addition, a REREAD option will be available. This will allow rereading (perhaps 
according to a different format) the last record read. 

More on other side 
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TYPE FILE.COB 

FILE.COB 11/19/68 1632 1-1-126 


00010 
00020 
00030 
00040 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
005 20 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00655 
00660 
00670 
00680 
00690 


IDENTIFICATION DIVISION. 

PROGRAM-ID. SAMPLE COBOL. 

ENVIRONMENT DIVISION. 

SOURCE-COMPUTER. PDP-6. 

OBJECT-COMPUTER. PDP-6. 

FILE-CONTROL. 

SELECT INFILE ASSIGN TO DPMI. 

SELECT OUTFILE ASSIGN TO DRM2 • 

DATA DIVISION. 

FILE SECTION. 

FD INFILE DATA RECORD IS READIN. 

01 READIN. 

02 FILLER PICTURE X(40). 

FD OUTFILE DATA RECORDS ARE RESULTS, TIME-AND-DATE, 
PRIN-TOT. 

01 RESULTS. 

02 ACCT-NO PICTURE 9(5). 

02 NAME PICTURE A(20). 

02 AMOUNT PICTURE $Z,ZZ9.99. 

01 TIME-AND-DATE. 

02 TIME-FOR-TODAY PICTURE X(10). 

02 TODAYS-DATE PICTURE X( 16). 

01 PRIN-TOT. 

02 FILLER PICTURE X( 10). 

02 TOT-ACT PICTURE $ZZZ,ZZ9.99. 
WORKING-STORAGE SECTION. 

77 TEN-10 PICTURE 99V9 VALUE 10.0. 

77 ACCUMULATOR PICTURE S9(6)V99 VALUE ZERO. 

77 COUNTER PICTURE S999 VALUE ZERO. 

01 READ-STORAGE. 

PICTURE X(8). 

PICTURE 9(5). 

PICTURE A(20). 

PICTURE S999V99. 


02 

02 

02 


GOTO. 

CALC. 


FILLER 
FIELD-1 
FIELD-2 
02 FIELD-3 
02 FORM-FEED PICTURE XX. 

PROCEDURE DIVISION. 

START. OPEN INPUT INFILE. OPEN OUTPUT OUTFILE. 

TIME TIME-FOR-TODAY. DATE TODAYS-DATE. 

WRITE TIME-AND-DATE. 

READIT. READ INFILE AT END GO TO FINISH. 

MOVE READIN TO READ-STORAGE. 

IF FIELD-1 IS GREATER THAN 500 PERFORM CALC 
THRU EXOUT. NOTE ACCOUNT NUMBERS BELOW 501 
ARE NOT PROCESSED. 

GO TO READIT. 

MULTIPLY FIELD-3 BY TEN-10 GIVING AMOUNT 
ROUNDED ON SIZE ERROR ALTER GOTO TO PROCEED 
TO ERCALC. 

MOVE FIELD-1 TO ACCT-NO. 

MOVE FIELD-2 TO NAME. 

WRITE RESULTS AFTER ADVANCING 1 LINE. 

ADD FIELD-3 TO ACCUMULATOR. 

ADD 1 TO COUNTER. 

IF COUNTER IS NOT EQUAL TO 100 GO TO EXOUT. 
MOVE ACCUMULATOR TO TOT-ACT. 

WRITE PRIN-TOT. 

MOVE ZEROES TO COUNTER, ACCUMULATOR. 

EXIT. 

STOP "SIZE ERROR IN LAST RECORD". 

IF COUNTER IS LESS THAN 100 GO TO LAST. 
CLOSE INFILE. CLOSE OUTFILE. STOP RUN. 

IF COUNTER IS EQUAL TO 0 GO TO MOVIT. 

MOVE ACCUMULATOR TO TOT-ACT. 

WRITE PRIN-TOT. 

MOVE 100 TO COUNTER. 

GO TO FINISH. 

END START. 


EXOUT. 

ERCALC. 

FINISH. 

LAST. 


MOVIT. 


















SNOBOL is a STRING ORIENTED SYMBOLIC LANGUAGE especially designed for the processing 
of character strings. It provides a powerful means for searching through character strings in order to 
match patterns, rearrange strings, and form new strings. It is useful in linguistics, the construction of 
psychological models, cryptanalysis, theorem proving, music and constructing bibliographies. 

SNOBOL is especially useful in producing "front ends" for sophisticated FORTRAN and MACRO 
programs. These front ends can be quickly written and provide an excellent interface between the 
programs and non-computer oriented users. This relieves the veteran programmer from the arduous 
task of either writing the interface in the mathematical language of his program or training users in 
the use of the inflexible format restrictions associated with these languages. SNOBOL also provides an 
expedient method for reformatting of data files by offering simple operations for reading in data, for 
creating files by changing or deleting certain string sections of existing files, or adding sections to files, 
SNOBOL has a simple statement format, string oriented input and output, editing aids, dynamic 
storage, subroutine compatibility with Macro and Fortran programs, and line by line compatibility 
with Macro statements. 

SNOBOL is an easy language for both computer-oriented and non-computer-oriented personnel 
to learn. Because of the simple statement format and uncomplicated I/O commands, the inexperienced 
may write a useful SNOBOL program in as little as two to four hours. 

SNOBOL TERMINOLOGY 

1. String refers to a series of characters. When used in a SNOBOL program, a string must 
be enclosed in quotes. 

2. Length of a string indicates the number of characters, including blanks, within a string. 

3. Null String is a string of length zero. 

4. String Name is a title assigned to a string of characters. 

5. Label is a name given to a SNOBOL statement. 

SOME SNOBOL OPERATIONS 

1. Replacement is the operation of assigning. 

2. Deletion assigns the null string to a string name. 

3. Concatenation is the procedure used to link two or more strings to form a new string. 

4. Transfer Commands are provided for conditional and unconditional transfer of execution to 
some statement. 

5. Pattern Matching operation is available for the comparison of strings. 

6. Arithmetic Operations may be performed on integer numbers. 

7. Arithmetic Relations are used to determine conditions between two numeric strings. 

8. Comments may be written by preceding the comment with a semicolon. 


More on other side 
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TYPE SNOBO•SNO* FCODE•DAT. AjBjC 




SNOBO•SNQ 4/30/69 1449 343-1-1 


00 1 00 
00120 
00122 


.OPIN "FCODE.DAT’* 
.READ LINE /FCFINISH) 


;OPEN FILE FCODE•DAT FOR INPUT 
;READ A RECORD OF FCODE 


*DEPT* 


* + *• 


00160 

NEWDE: 

MATCH = DEPT 

00165 
0017 5 

* 

OPEN A FILE FOR OUTPUT.THE FILE NAME WILL BE THE 

00176 

* 

SAME AS THE CONTENTS OF THE STRING NAME MATCH 

00180 


•OPOUT MATCH 

00195 

00200 

BEGIN: 

LINE * SOSEC* " + " = 

00220 


LINE *NAME* = 

00240 


NEWLI = DEPT " ” SOSEC ” " NAME 

00260 


.WRITE NEWLI 

00262 

00265 

* 

READ THE NEXT RECORD FROM INPUT FILE--IF AN END OF 

00275 

* 

FILE HAS BEEN REACHED TRANSFER COMMAND TO FINISH 

00280 


•READ LINE /FCFINISH) 

30290 

00300 


LINE *D£PT* "+" = 

00320 


DEPT MATCH /SC3EGIN) 

00330 

* 

CLOSE THE CURRENT OUTPUT FILE AND TRANSFER CONTROL 

00331 

* 

TO NEWDE 

00 340 


• CLOUT /C NEWDE) 

00360 

FINISH: 

•END JEND OF THE PROGRAM 



Search LINE until a “+” 
character is encountered. 
Assign all characters 
preceding that to DEPT 
Delete those characters 
and from LINE. 


Replace the contents of 
MATCH by the contents 
of DEPT. 


Search LINE for another 
character. Assign all 
characters preceding that 
“+” to SOSEC and delete 
those characters and 
from LINE. 


Assign the remaining 
characters in LINE to NAME 
and delete those characters 
from LINE. 


FCODE.DAT 4/30/69 1449 343-1-1 

00100 A+111- 1 1- 1 1 11 + JONES* JOHN 
00120 A+l 12-21-2222+ SMITH* HAROLD 

00140 A+345-92-6178+MURRAY*ROBERT 

00160 A+764-42-8196+ BROWN* NARY 

00180 B+2 48-13-7 649 +WARGA* BETH 

00200 B+114-41 - 1441+SALERNO*CHERYL 

00220 B+121-76-3289 +BROADWAY* FLORENCE 
00240 C+139-47-8291+BAKER*JOHN 
00260 C+281 -42-7 639 + 8LIVEN* LAUREEN 

00280 C+27 6-54-3210 +JOHNSON* LOIS 

00 300 C+ 468-32-5986+SCHWARTZ* LINDA 
00320 C+ 543-12-9876+COLTON*EDITH 


A 4/30/69 1449 343-1-1 

A 111-11-1111 JONES*JOHN 
A 112-21-2222 SMITH* HAROLD 
A 345-92-6178 MURRAY*ROBERT 
A 764-42-8196 BROWN* NARY 


B 4/30/69 1449 343-1-1 

B 248-13-7649 WARGA.* BETH 
B 114-41-1441 SALERNO* CHERYL 
B 121-76-3289 BROADWAY*FLORENCE 


C 4/30/69 1449 343-1-1 


C 139-47-8291 
C 281-42-7639 
C 276-54-3210 
C 468-32-5986 
C 543-12-9876 


BAKER*JOHN 
BLIVEN* LAUREEN 
JOHNSON*LOIS 
SCHWARTZ*LINDA 
COLTON* EDITH 


Replace the contents of 
NEWLI by the contents 
of DEPT, a space, SOSEC, 
a space, and NAME. 


Write the contents of 
NEWLI on the output file. 


Compare the contents of 
DEPT to the contents 
of MATCH. If the 
comparison is successful, 
transfer execution to the 
statement labelled BEGIN. 











AL/COM’s SEDIT, or Super EDITor, provides our users with a remarkable facility to create and 
edit sequenced files in ways highly sophisticated yet simple for any user to comprehend. 

SEDIT’s features include: 

1. Automatic Indexing— 

In “create” mode the user can command SEDIT to type out 5-digit sequence numbers of lines 
being inserted. 

2. Short Cut Commands— 

The Replace command allows the user to replace a character string by another of any size, or 
by nothing. Deleting and reinserting the entire line is unnecessary. 

To insert or replace one line, simply type the sequence number, a tab, and then the line. 

3. Powerful String Editing As Well As Line Editing Capabilities With These Commands— 

Multiple Look with optional Replace 
Multiple Replace 
Multiple Search 
Replace 
Search 
Type or Print 
Update 

r 4. Convenient Switches To Speed Up Editing— 

/NOASTERISK and /NOINUMBER suppress most program responses, allowing the user to 
type commands and insert material at his own speed. 

With switches, the user can define his own “escape” key, or incorporate the changes he has 
made so far into the permanent version of his file. 

5. Automatic Saving Of File On Disc At End Of The Edit 

Two experimental features presently under consideration for SEDIT are: 

1. File Update Feature— 

The user creates a file containing SEDIT commands. He then instructs SEDIT to edit his 
program from this file of commands. All corrections are made without user sitting at TTY. The 
File Update feature offers real and computer time savings. 

2. Buffer Feature— 

Any segment of a created program can be stored in SEDIT's auxiliary buffer, then reinserted 
in the main program or in subroutines having these lines in common. 

More on other side 
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Append 

Build into the/BUFfer 
Delete 

Hack and Replace 
Insert 

Look and Append 
Look and Delete 
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tC 

Sample Creation of File Named TEST. FOR 
R SEDIT 


*ETEST, 

,for$*i: 

108 

00100 


TYPE 500 

00110 

10 

TYPE 600 

00120 


ACCEPT 700,NFIRST,ILAST, IFIRST 

00130 

30 

DO 100 I=IFIRST,ILAST 

00140 


J=IPRIME(I) 

00150 


60 TO (50,100),J 

00160 

50 

TYPE 800 

00170 

108 

CONTINUE 

00120 


GO TO 10 

00190 

500 

FORMATC///) 

00200 

600 

F0RMAT( IX, ’ TYPE NFIRST, ILAST’) 

00210 

700 

F0RMAT(2I) 

00220 

800 

FORMAK I8<\, ’ IS A PRIME’) 

00230 


END 

00240 

$*E 


EXIT 



tC 



Editing TEST. FOR 


,R SEDIT 


♦ETEST. 

FOR 


*90 

C- TO 

INSERT OR OVERWRITE A LINE TYPE LINE#, 

*MS1,Z$J$ 


00140 


J=IPRIMECI) 

00150 


GO TO (50,100),J 

SEARCH 

ENDS*LA160 

00160 

50 

TYPE 800,1 

*T. 



00160 

50 

TYPE 800,1 

*HR120$ 

,IF$$*MRL1,Z$NFIRSTSI FIRSTS 

00120 


ACCEPT 700,NFIRST,ILAST 

?Y 



00200 

600 

FORMATdX,’TYPE NFIRST, ILAST ’) 

7Y 



SEARCH 

ENDS*E 


EXIT 



tC 



Corrected File, TEST. 

FOR 

.TYPE TEST.FOR 

TEST.FOR 12/26/68 1410 1-1-124 

00090 

O TO 

INSERT OR OVERWRITE A LINE TYPE LINE# 

00100 


TYPE 500 

00110 

10 

TYPE 600 

00120 


ACCEPT 700,IFIRST,ILAST 

00130 

30 

DO 100 I=IFIRST,ILAST 

00140 


J:IPRIMECI) 

00150 


GO TO (50,100),J 

00160 

50 

TYPE 800,1 

00170 

100 

CONTINUE 

00180 


GO TO 10 

00190 

500 

FORMATC///) 

00200 

€00 

FORMATdX, ’TYPE IFIRST, ILAST’) 

00210 

700 

F0RMAT(2I) 

00220 

800 

FORMAT(18,’ IS A PRIME’) 

00230 


END 

EXIT 



TC 


Note: “$” indicate “Escape” or “Altmode”. 


“$*E” where E signals 
end of file and also 
saves file automatically. 


Multiple Search from 
start (1) to end of file 
(Z) for every occurrence 


Look at I #160 and 
Append to it “,1”. 



OF TEXT 


Type last line examined 
by SEDIT (“.” = last 
line). 


Multiple-Replace-Look 
searches for all 
occurrences of NFIRST, 
types line, and responds 
with “?” User responded 
Y-return, i.e. yes, 
replace, and continue 
search. 


Replace “,IF” by 
nothing and hack the 
rest of the line from 
there. 


OF TEXT 
















RSMPLX 




(RSMPLX Revised Simplex Subroutine) FEBRUARY, 1970 


RSMPLX is a group of eleven Fortran-coded subroutines, which together constitute a powerful 
mathematical tool for solving linear programming problems. Although of relatively recent origin, 
linear programming finds application in a wide range of disciplines such as management science, 
game theory, industrial production, planning and econometric modeling. 

The basic technique of linear programming minimizes or maximizes a linear function of several 
variables subject to certain imposed linear constraints. In industrial management, for example, 
the function maximized may represent profit while the constraints relate to the availability of 
labor, time and raw materials. 

In the mathematical statement of the linear programming problem, the function to be minimized 
is defined in terms of N variables, Xj, and N cost coefficients, Cj, where i = 1... N as: 

N 



^i^i (the object or cost function) 

i = 1 

The variables Xj are subject to M constraint equations (where M<N) of the form: 
N 


Ay Xj = Bj (j = 1... M) 


i = 1 


In the constraint equations, A is known as the "coefficient matrix", and B as the " right hand side". 

A further limitation imposed upon the solution is that all of the variables, Xj > 0. 

In general, the cost function is minimized when N-M of the variables are set to zero, and the remainder 

are greater than zero. RSMPLX obtains the solution by the well-known revised simplex algorithm. 

Features of AL/COM RSMPLX 

1. The user need call only the primary RSMPLX subroutine. Calls to other subroutines within 
the linear programming package are made from RSMPLX. 

2. This subroutine package is free of input/output statements permitting it to be incorporated 
in other programs. 

3. RSMPLX allows the user to generate data in storage, call the subroutine to process the data, 
and store the results for later output or additional future processing. 

4. There is no restriction on the signs of the Bj's. 

5. The program may be restarted with artificial, partial or full basis. 

6. Parameters are passed to RSMPLX via COMMON blocks. 

7. Problems up to a maximum of approximately 100 rows by 150 columns, or the equivalent, 
may be solved. Arrays are dimensioned in the calling program, simplifying setup and changes. 

8. Provision is made for use of multiple objective functions with the same coefficient matrix. 

Multiple right hand sides are also possible. Constraints may be imposed or removed readily. 

9. Solutions to the "dual" problem can be readily obtained. 

10. A number of other options are available, including "mixed pricing" or actual objective. 

Continued on Reverse Side 
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EXAMPLE: 

A very simple example in two variables with three constraints is presented here to show the input, 
iterations, and initial and final tableaus of RSMPLX. 

The file LPMAIN.FOR shows production line data for an imaginary distillery producing two blended 
products, x and y. Profit on x is $1.50, while y yields $1.25 profit. 

Constraints are: 

1. Pot still capacity = 5000 oz. per day. Blend x requires 20 oz. per bottle; blend y, 10 oz. per 
bottle (1/5 gal.). 

20 x + 10 y « 5000 

2. Filter and blending equipment can process 500 fifths per day. Blend x is filtered once, 
while blend y receives double filtration. 

x + 2y < 500 

3. Bottler requires three operations on blend x bottle, while only two are needed on blend y 
bottle. Capacity is 800 operations per day. 

3x + 2y < 800 

4. Objective function (expressing maximum profit) is: 
maximize M = l.5x + l.2y 

The final tableau reveals that X=150, Y=175 (5ths per day). The significance of 250 (line 3, col. I, 
solution vectors) is that full capacity of still was not used. It could have produced an additional 
250 oz. The profit on the two products is: 1.5 x 150 = $225 plus 1.2 x 175 = $210 = $435 (maximum). 


LPMAIN 

• FOR 

PAGE t 

00100 


BLOCK DATA 

00110 


COMMON /A/A(20) /B/BC4) /X/X<4) /JH/JHC4) 

00120 


COMMON /E/E(16) /P/P(4) /Y/YC4) /KB/KB(5) 

00130 


COMMON /0UTC0N/K0UTC8) /ERROR/TERR(8) 

00140 


COMMON /INCON/INFLAG,N,ME,M,MF,MC,NCUT,NVER 

00150 


COMMON /TOL/ TPIV,TZER0,TC0ST,TEC0L,PRM 

00160 


END 

00170 



00180 


COMMON /A/A (1 > /B/B( 1) /X/X(l) /JH/JHCl) 

00190 


COMMON /E/E < 1 ) /P/P(l) /Y/YC1) /KB/KB (1) 

00200 


COMMON /OUTCON/KOUTd) /ERROR/TERR (1) 

00210 


COMMON /INCON/INFLAG,N,ME,M,MF,MC,NCUT,NVER 

00220 


COMMON /TOL/ TPIV,TZERO,TCOST,TECOL,PRM 

00230 


EQUIVALENCE (K0UT(1),K),(K0UTC2),1 TER),(K0UT(3),INVC), 

00240 


1 (KOUT(4),NUMVR),(KOUT(5),NUMPV),(KOUT(6),I NFS), 

00250 


2 (KOUT(7),JM) 

00260 


INFLAG=4 

00270 


TYPE 200 

00280 


ACCEPT 210,ME,N 

00290 


TYPE 220 

00300 


ACCEPT 210,MF,M 

00310 


TYPE 230 

00320 


ACCEPT 210,MC 

00330 


TYPE 240 

00340 


ACCEPT 210,NCUT,NVER 

00350 


TYPE 250 

00360 


ACCEPT 260,TPIV,TZERO,TCOST,TECOL 

00370 


DO 100 1=1,ME 

00380 


TYPE 270,1 

00390 

100 

ACCEPT 260,(AC11),II = I,ME*N,ME),BCI) 

00400 


CALL RSMPLX 

00410 


TYPE 280,K 

00420 


DO 110 1 = 1 ,N 

00430 


XX=0.0 

00440 


PP=0.0 

00450 


J=KB(I) 

00460 


IF(J.EQ.0)GO TO 110 

00470 


PP=P(J) 

00480 


XX=XCJ> 

00490 

110 

TYPE 290,I,XX,PP 

00500 


TYPE 300,X(1) 

00510 


STOP 

00520 

200 

FORMATC'0ENTER PROBLEM:*/' ROWS, COLS IN "A"...? *) 

00530 

210 

F0RMATC2I) 

00540 

220 

FORMAT (*+FI RST, LAST CONSTR. IN ''A"...? ') 

00550 

230 

FORMATC *+R0W # OF OBJ FCN...? *) 

00560 

240 

FORMAT(’+MAX ITERS A REINVS...7 *) 

00570 

250 

F0RMAT('+TOLERANCESC PIV,X,C0ST A E)...? ’) 

00580 

260 

FORMAT (10F) 

00590 

270 

FORMATC'+R0W',11,’...? ') 

00600 

280 

FORMATC OUTPUT CONDITION: ’,12,//' SOLUTION VECTORS:') 

00610 

290 

FORMAT(I3,2F) 

00620 

300 

FORMATC’0OBJECTIVE VALUE: *F,//) 

00630 


END 

EXIT 



TC 




.EXE LPMAIN.FOR PUBSRSMPLX 
COMPILING: LPMAIN.FOR 

LOADING. 

CORE 4. 

START 000547 


ENTER PROBLEM: 

ROWS, COLS IN ”A" .. .? 
FIRST, LAST C0NSTR. IN 
ROW # OF OBJ FCN.. ,? 1 
MAX ITERS A REINVS... 
TOLERANCES 

( PIV,X,COST A E). ..? 
R0W1...7 -1.5 -1.2 
R0W2...7 20 10 1 0 

R0W3...7 1201 

R0W4...7 3200 

OUTPUT CONDITION: 1 

SOLUTION VECTORS: 

1 150.0000000 

2 175 *0000000 

3 250.0000000 

4 0.0000000 

5 0.0000000 

OBJECTIVE VALUE: 

EXIT 
tC 


,5 

"A"...? 2,4 

10 

.001,.001,-.001,-.001 

0 5000 

0 500 

1 800 


0.0000000 
0.4500000 
0.1500000 
0.0000000 
0.0000000 

435.0000000 

























ATHEMATICAL SUBROUTINES 


& 


(Mathematical Subroutines Library) DECEMBER, 1970 




This set of computation subroutines, for use in FORTRAN IV programming, is intended to aid the user 
in the development of his own FORTRAN programs. These subroutines are arranged for indexing purposes 
into five groups: statistics, mathematics, polynomials, calculus, and special functions. They can 
be applied to the solution of many problems in industry, science and engineering. 

Some of the characteristics of AL/COM’s MS are: 

1. Over 265 subroutines are presented. Both single and double precision modes are available. 

2. All the subroutines are free of input/output statements. 

3. Subroutines do not contain fixed maximum dimensions for the data arrays named in their 
calling sequences. 

4. Many matrix manipulation subroutines handle symmetric and diagonal matrices (stored in economical, 
compressed formats) as well as general matrices. This can result in considerable saving in data 
storage for large arrays. 

5. The use of the more complex subroutines (or groups of them) is illustrated in the program manual 
by sample main programs with input/output. 

6. All Mathematical Subroutines are in relocatable (binary) form, ready to be loaded with your program, 
saving compilation cost and time. They are stored in library files on device PUB:. 

7 . Related mathematic subroutines are stored in a single class file within the library. For example: 
all polynomial routines are stored in POLY.LIB 

8. Documentation on every subroutine is available. The files are conveniently arranged in a tree 
structure to facilitate retrieval, and may be typed with the command: 

EXPLAIN Subroutine name>. 

Documentation of Subroutines 

The following example is illustrative of this tree-structured documentation. 

User wishes to add, multiply/and invert matrices: 

EXPLAIN MATH (See above.) 

System responds with description of classification method, list of classes, and instructions. 

User selects the following classification: 

MAT, DMAT—Matrices: Storage, operations, inversion, systems of linear equations, and eigenanalysis. 

(prefix “D” indicates double precision) 

He then selects subset “MAT” and types: 

EXPLAIN MAT <return> 

. . . which types out a description of all matrix manipulation routines in the library. User selects subroutines 
MADD, MPRD and MINV2 (which respectively add, multiply, and invert matrices) as suitable. He next types: 

EXPLAIN MADD MPRD MINV2 <return> 

. . . which types out complete descriptions and operating instructions for all 3 routines. He is now ready to 
use these routines. 

Use of Subroutines 

A FORTRAN listing of many of the Mathematical Subroutines, and a detailed explanation of their use, is 
available from Applied Logic Corporation or its Associates. 

Continued on other side 
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This simplified example illustrates the commands necessary to CALL a mathematical subroutine 
from the main program and to RE TURN control to the main program: 

A file named SIGMA.FOR containing the main program the user has created would appear as 
follows: 


N = 10 
M — 20 

CALL MADD (AR1, AR2, AR3, N,M) 
CALL MPRD (A,B,R,N,M,MSA,MSB,L) 
CALL MINV2 (A,N,D,L,M) 


The subroutines called by SIGMA.FOR are located in the MAT group. To use these subroutines, 
type: 

EXECUTE SIGMA.FOR PUB:MAT.LIB <return> 


THE AL/COM MATHEMATICAL SUBROUTINES LIBRARY IS 
MAINTAINED BY CLASSES OF SUBROUTINES. THE INDIVIDUAL 
SUBROUTINES BELONGING TO A SINGLE CLASS WITH NAME 
"XXXX" ARE DOCUMENTED IN THE TWO FILES XXXX AND 
DXXXX. THE LATTER FILE IS FOR DOUBLE PRECISION 
VERSIONS OF THE ROUTINES. COMPLETE DOCUMENTATION OF 
EACH SUBROUTINE WITHIN A CLASS CAN BE LISTED 
TO THE TELETYPE. TYPE: 

EXPLAIN SUBROUTINE NAME> <RETURN> 

ALL SUBROUTINES IN THE PACKAGE ARE AVAILABLE 
ALREADY COMPILED AND IN RELOCATABLE LIBRARY FORMAT. 
TO USE ROUTINES FROM CLASS XXXX. TYPE: 

EXECUTE <PROGRAM NAME> PUB:XXXX.LIB 

FROM TIME TO TIME NEW ROUTINES WILL BE ADDED 
TO THE PACKAGE BUT THE BASIC TREE STRUCTURE 
FOR DOCUMENTATION WILL REMAIN UNCHANGED. 


CLASSES: 

STAT1»DSTAT1-“STATISTICS: DATA SCREENING. DESIGN ANALYSIS. 

DISCRIMINANT ANALYSIS. FACTOR ANALYSIS. AND TIME SERIES. 

STAT2.DSTAT2--STATISTICS: CORRELATION AND REGRESSION. NONPARA- 
METRIC STATISTICS. GENERATION OF RANDOM VARIATES. 
DISTRIBUTION FUNCTIONS. ELEMENTARY STATISTICS. AND 
MISCELLANY. 

MAT.DMAT—MATRICES: STORAGE. OPERATIONS. INVERSION. SYSTEMS OF 
LINEAR EQUATIONS. AND EIGENANALYSIS. 

POLY.DPOLY--POLYNOMIALS: OPERATIONS. ROOTS. AND SPECIAL TYPES. 

CALC1.DCALC1--CALCULUS: ROOTS OF NONLINEAR EQUATIONS. EXTREMUM 
OF FUNCTIONS. PERMUTATIONS. SEQUENCES. INTERPOLATION, 
APPROXIMATION, AND SMOOTHING. 

CALC2,DCALC2—CALCULUS:NUMERICAL QUADRATURE, NUMERICAL DIFFEREN¬ 
TIATION AND ORDINARY DIFFERENTIAL EQUATIONS. 


SPEC.DSPEC--SPECIAL FUNCTIONS 














CPM (Critical Path Method) scheduling is an interactive program for solving the general problem of 
identifying those steps in a complex project which are critical with regard to time, and quantifying 
their contributions to potential delay in completion of the project. 

Critical path problems arise whenever the number and interrelationship of the elementary steps 
prohibits an ordinary "common sense" solution. CPM answers the question: "when should each 
individual job be begun, and when must it be completed to keep project time or costs at a minimum?" 

CPM is useful to management and project leaders in a number of ways. It is an aid in formulating 
plans and developing realistic goals, since the effect of alternative decisions upon schedules and costs 
can be tested before implementation. 

It is a proven method for focusing attention upon those tasks demanding priority handling, and in 
helping to define the best "trade-offs" in costs, resources or time, to meet project deadlines. CPM 
provides periodic progress reports identifying potential problems before they become crucial. 

PHASE 1: DATA ENTRY 

Data for input into AL/COM CPMNET program is entered into a user's file. Data includes network 
nodes and time estimates for each activity. Descriptions of each activity may also be included. The 
data file is usually created by following a previously prepared "arrow diagram" depicting the relation¬ 
ship of the various activities, and giving a time estimate for each activity. 

PHASE 2: PROJECT SCHEDULE CALCULATIONS 

The initial or network scheduling phase of the program calculates, for each activity, the earliest possible 
start day and the earliest possible finish day. It also calculates the last day an activity can begin and 
still finish without delaying other activities in the network. The numerical difference between early and 
late start days is the "total float" which indicates the "degree of criticality" of that activity. All activities 
lying on the "critical path" will have a total float time of <h, since "early start" and "late start" days will 
then coincide. 

PHASE 3: PROJECT CONTROL AND MONITORING 

Control and monitoring of the project is facilitated by having on hand listings of network activities that 
have been sorted in certain desirable ways. Therefore, AL/COM has built into its CPM program a sorting 
routine which will sort the network activities in any desired order. For example: a sort by "total float" 
will list activities from most critical to least critical, or for an on-going project, a sort by "early finish 
times" will place emphasis on lack of progress. 

PHASE 4: CALENDAR DATING AND REPORTING 

The final section of the program contains the option of assigning calendar dates to relative scheduling 
days. Provision is made for either 5 or 6 work days per week, and holidays and special non-work days 
may be entered. Reports may be generated in a variety of formats depending on the desired content. 

COST ANALYSIS 

Cost analysis is useful when normal project duration, determined in the scheduling phase, must be 
.shortened. Knowing the "total float" or "degree of criticality" of each activity singles out those 
activities that must be crashed in order to shorten over-all project duration. 

Continued on other side 
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EXAMPLE: 


.TYPE TEST.CPM 
TEST.CPM i -27- 70.943 

00100 10,20,1,REVIEW EXISTING MAPPING 

00110 20,30,2,DETERMINE FLIGHT PLAN 

00120 30,40,4,FIELD LAY-OUT OF TARGETS 

00130 40,50,3,ESTABLISH HORIZONTAL CONTROLS 

00140 40,60,1,FLY FLIGHT 

00150 50,70,0,DUMMY 

00160 60,70,5,MAKE DIA-POSITIVES 

00170 60,80,5,DEVELOP PHOTOS 

00180 70,90,3,COMPILE FIRST 1/2 HARDCOPY 

00190 80,100,3,COMPOSE MOSAIC 

00200 90,100,0,DUMMY 

00210 90,120,3,FINISH COMPILING HARDCOPY 

00220 100,110,5,LAY CL FIRST 1/2 HARDCOPY 

00230 110,120,0,DUMMY 

00240 110,130,2,STRIP CL PROFILE 1/2 

00250 120,130,5,FINISH LAYING CENTERLINE 

00260 130,140,2,FINISH STRIPPING PROFILE 

00270 140,150,1,SHIFT CL DUE TO PROFILE 

00280 150,160,1,REVISED PROFILE INFORM 



AL/COM CPM PROGRAM IS READY 09*45 27-JAN-70 

INPUT FILE NAME: TEST.CPM 

PROJECT IDS TESTING FOR INFORMATION 

PHASE I STARTS ! 

NO. OF ACTIVITIES = 19 

PHASE II STARTS ! 

NO DETECTABLE ERRORS l 

INDICATE TYPE OF SORTs CR 

REQUESTED SORT: CRITICALITY 

INDICATE REPORT FORMAT: ES 

REQUESTED FORMAT: EARLY START 

ENTER OUTPUT FILE NAME: COR TTY:) TTY: 

REPORT TO INCLUDE ACTIVITY DESCRIPTIONS (YES OR NO) ? YES 
CALENDAR DATING (YES OR NO) ? YES 
5 OR 6 DAY WORK WEEK ? 5 
PROJECT STARTING DATE ? 1,1,70 


TESTING 

FOR 

INFORMATION 

PAi 

I 

J 

DUR 

ACTIVITY DESCRIPTION 

EARLY 

START 

10 

20 

1 

REVIEW EXISTING MAPPING 

2JAN70 

20 

30 

2 

DETERMINE FLIGHT PLAN 

5JAN70 

30 

40 

4 

FIELD LAY-OUT OF TARGETS 

7JAN70 

40 

60 

1 

FLY FLIGHT 

13JAN70 

60 

70 

5 

MAKE DIA-POSITIVES 

14JAN70 

60 

80 

5 

DEVELOP PHOTOS 

14JAN70 

70 

90 

3 

COMPILE FIRST 1/2 HARDCOPY 

21JAN70 

80 

100 

3 

COMPOSE MOSAIC 

21JAN70 

90 

100 

0 

DUMMY 

26JAN70 

100 

110 

5 

LAY CL FIRST 1/2 HARDCOPY 

26JAN 70 

1 10 

120 

0 

DUMMY 

2FEB70 

120 

130 

5 

FINISH LAYING CENTERLINE 

2FEB70 

130 

140 

2 

FINISH STRIPPING PROFILE 

9FEB70 

140 

150 

1 

SHIFT CL UUE TO PROFILE 

11FEB70 

150 

160 

1 

REVISED PROFILE INFORM 

12FEB70 

90 

120 

3 

FINISH COMPILING HARDCOPY 

26JAN70 

40 

50 

3 

ESTABLISH HORIZONTAL CONTROLS 

13JAN70 

50 

70 

0 

DUMMY 

16JAN70 

110 

130 

2 

STRIP CL PROFILE 1/2 

2FEB70 


TOTAL 

FLOAT 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

3 

3 

3 













